home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / thor / GetNET22.lha / GetNET / Install GetNET < prev    next >
Text File  |  1996-11-03  |  2KB  |  61 lines
  1. ; Installer script for GetNET 2.2 and higher
  2. ;
  3. ; $VER: Install GetNET 1.4 (3.11.96)
  4. ;
  5. ; Initialization ***********************************************************
  6.  
  7. (set #welcome (cat "\nWelcome to the Installer for GetNET 2.2") )
  8. (set #end-text "\nInstallation is now complete.\n\nStart CfgGetNET from Thor to configure GetNET.\n\nPlease send suggestions and bug reports to rvhooff@caiw.nl")
  9.  
  10. (makeassign "GN_Install" "" (safe) )
  11.  
  12. (welcome #welcome)
  13.  
  14. ; Find Thor ****************************************************************
  15.  
  16. (if (exists "ENV:THOR/THORPath" (noreq) )
  17.   ( (if (set Thor_Dir (getenv "THOR/THORPath") )
  18.       ( (set Test_lf (substr Thor_Dir (- (strlen Thor_Dir) 1) ) )
  19.         (if (= Test_lf "\n")
  20.           ( (set Thor_Dir (substr Thor_Dir 0 (- (strlen Thor_Dir) 1) ) ) )
  21.         )
  22.         (set Thor_Dir (expandpath Thor_Dir) )
  23.         (makeassign "ThorDEST" Thor_Dir (safe) )
  24.       )
  25.       ( (abort "Couldn't find Thor.") )
  26.     )
  27.   )
  28.   ( (abort "Couldn't find Thor.") )
  29. )
  30.  
  31. ; Copy/update files and set protection bits for the scripts ****************
  32.  
  33. (complete 33)
  34.  
  35. (copyfiles
  36.   (source "GN_Install:rexx")
  37.   (dest "ThorDEST:rexx")
  38.   (all)
  39.   (optional "force" "askuser")
  40. )
  41.  
  42. (copyfiles
  43.   (source "GN_Install:Docs")
  44.   (dest "ThorDEST:docs")
  45.   (all)
  46.   (optional "force" "askuser")
  47. )
  48.  
  49. (complete 66)
  50.  
  51. (protect "ThorDEST:rexx/GetNET.thor" "-e +s")
  52. (protect "ThorDEST:rexx/CfgGetNET.thor" "-e +s")
  53.  
  54. (complete 100)
  55.  
  56. ; Exit gracefully **********************************************************
  57.  
  58. (makeassign "GN_Install")
  59. (makeassign "ThorDEST")
  60. (exit #end-text)
  61.